home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d4 / iq.arc / ANTONYM1.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1986-11-13  |  4.3 KB  |  100 lines
  1. 10  KEY OFF:KEY(10) ON:ON KEY(10) GOSUB 570:KEY(9) ON:ON KEY(9) GOSUB 370:DIM P(35):FOR I=1 TO 35:P(I)=I:NEXT I:COLOR 3,0,8
  2. 20  CLS:T=0:N=0:GOSUB 980:FOR I=1 TO 100:SWAP P(INT(RND*35+1)),P(INT(RND*35+1)):NEXT I
  3. 30  CLS:LOCATE 1,34:COLOR 0,7:PRINT"IQ Builder ":COLOR 11,0
  4. 40  LOCATE 2,34:PRINT"Antonyms 1":COLOR 0,11
  5. 50  LOCATE 4,21:PRINT CHR$(201);
  6. 60  FOR J=1 TO 35
  7. 70    PRINT CHR$(205);
  8. 80    IF J > 35 GOTO 100
  9. 90    NEXT J
  10. 100  PRINT CHR$(187)
  11. 110  LOCATE 5,21:PRINT CHR$(186);:PRINT"Press <F9> to skip to next section.";
  12. 120  PRINT CHR$(186)
  13. 130  LOCATE 6,21:PRINT CHR$(186);:PRINT"Press <F10> to return to main menu.";
  14. 140  PRINT CHR$(186)
  15. 150  LOCATE 7,21:PRINT CHR$(200);
  16. 160  FOR J=1 TO 35
  17. 170    PRINT CHR$(205);
  18. 180    IF J > 35 GOTO 200
  19. 190    NEXT J
  20. 200  PRINT CHR$(188):COLOR 3,0
  21. 210  LOCATE 9,1:PRINT"Antonyms are words of opposite meaning. ";
  22. 220  PRINT"Pick the word whose meaning is most"
  23. 230  PRINT"unlike the one in the box."
  24. 240  XX=1:P=P(XX)
  25. 250  IF P>1 THEN FOR J=1 TO P-1:FOR X=1 TO 7:READ A$:NEXT X,J
  26. 260  PRINT:COLOR 0,3:PRINT"Problem" P
  27. 270  READ A$:PRINT:COLOR 11,0
  28. 280  PRINT TAB(1-INT(LEN(A$)/2)) "VARPTR" STRING$(LEN(A$),"SOUND") "COLOR"
  29. 290  PRINT TAB(1-INT(LEN(A$)/2)); "CALL"; A$; "CALL"
  30. 300  PRINT TAB(1-INT(LEN(A$)/2)) "CLS" STRING$(LEN(A$),"SOUND") "'"
  31. 310  PRINT:FOR X=1 TO 5:COLOR 3,8:READ A$:PRINT"(";:COLOR 11,0:PRINT X;:COLOR 3,8:PRINT")  " A$:NEXT X:READ R
  32. 320  LOCATE 25,1:PRINT "Your choice is - ";
  33. 330  GOSUB 990:IF INSTR("12345",IKEY$)=0 THEN 330 ELSE C=VAL(IKEY$)
  34. 340  N=N+1:IF C=R THEN LOCATE 25,1:PRINT SPC(79);:LOCATE 25,1:PRINT"Correct!";:T=T+1:TIMEOUT=3:GOSUB 950:LOCATE 25,1:PRINT SPC(79);
  35. 350  IF C<>R THEN PLAY "mfn27n20t32":LOCATE 25,1:PRINT SPC(79);:LOCATE 25,1:COLOR 11,12:PRINT"No!  Try again.";:COLOR 7,0:TIMEOUT=3:GOSUB 950:LOCATE 25,1:PRINT SPC(79);:GOTO 320
  36. 360  XX=XX+1:IF XX<36 THEN P=P(XX):GOSUB 940:RESTORE:GOTO 250
  37. 370  COLOR 11,4:LOCATE 1,1:PRINT SPC(33):LOCATE 1,45:PRINT SPC(35)
  38. 380  LOCATE 2,1:PRINT SPC(33):LOCATE 2,45:PRINT SPC(35)
  39. 390  LOCATE 3,1:PRINT SPC(79)
  40. 400  LOCATE 4,1:PRINT SPC(20):LOCATE 4,58:PRINT SPC(22)
  41. 410  LOCATE 5,1:PRINT SPC(20):LOCATE 5,58:PRINT SPC(22)
  42. 420  LOCATE 6,1:PRINT SPC(20):LOCATE 6,58:PRINT SPC(22)
  43. 430  LOCATE 7,1:PRINT SPC(20):LOCATE 7,58:PRINT SPC(22)
  44. 440  LOCATE 8,1:PRINT SPC(79)
  45. 450  LOCATE 9,1:PRINT SPC(79)
  46. 460  LOCATE 10,1:PRINT SPC(79)
  47. 470  COLOR 11,4:GOSUB 940:COLOR 3,0:LOCATE 15,17
  48. 480  IF N<3 THEN COLOR 11,0:PRINT"You didn't give me much of a chance, did you?":GOTO 550
  49. 490  PRINT"You scored" T "right out of" N "or" INT(100*T/N) "percent."
  50. 500  IF T/N<0.6 THEN LOCATE 18,21:PRINT"I'll bet you do better next time.":TIMEOUT=7:GOSUB 850:RUN
  51. 510  LOCATE 18,34:IF T/N<=0.8 THEN PRINT"Good score!":GOTO 550
  52. 520  IF T/N<=0.9 THEN PRINT"Very good!":GOTO 550
  53. 530  IF T/N<=0.99 THEN PRINT"Excellent!":GOTO 550
  54. 540  COLOR 19,0:PRINT"Brilliant!"
  55. 550  COLOR 3,0:LOCATE 25,1:PRINT "Press space bar to continue.";
  56. 560  IN$=INKEY$:IF IN$="" THEN 560 ELSE 580
  57. 570  SYSTEM
  58. 580  RUN "antonym2
  59. 590  DATA abandon, ransom, keep, wild, leave, forsake, 2
  60. 600  DATA absence, plenty, return, destiny, error, presence, 5
  61. 610  DATA accept, give, reject, caution, reward, take, 2
  62. 620  DATA change, leave, oversee, alter, shape, remain, 5
  63. 630  DATA effect, result, cause, thwart, award, prove, 3
  64. 640  DATA export, deport, import, report, disport, tariff, 2
  65. 650  DATA hardship, aid, collapse, suffering, ease, quiet, 4
  66. 660  DATA hill, cave, hollow, pond, volcano, peak, 2
  67. 670  DATA hinder, aid, forward, besides, accept, keep, 1
  68. 680  DATA identical, same, twins, different, similar, Siamese, 3
  69. 690  DATA melt, gasify, burn, evaporate, freeze, heat, 4
  70. 700  DATA offend, close, react, please, defend, smell, 3
  71. 710  DATA prove, disprove, approve, reprove, improve, remain, 1
  72. 720  DATA punctual, final, gentle, smooth, sunny, tardy, 5
  73. 730  DATA punish, educate, reward, accept, fight, flee, 2
  74. 740  DATA question, remember, propose, answer, remark, watch, 3
  75. 750  DATA quick, difficult, thin, careless, calm, slow, 5
  76. 760  DATA quit, start, renew, elect, return, use, 1
  77. 770  DATA scold, chide, tear, keep, approve, spank, 4
  78. 780  DATA tardy, equal, favorable, disloyal, happy, prompt, 5
  79. 790  DATA tired, attired, untried, tireless, retired, weary, 3
  80. 800  DATA unravel, show, solve, prove, predict, entangle, 5
  81. 810  DATA unreal, ordinary, actual, fold, make, cover, 2
  82. 820  DATA wake, warn, freeze, sleep, trap, eat, 3
  83. 830  DATA warlike, private, democratic, common, peaceful, empty, 4
  84. 840  DATA waste, meet, save, pollute, often, agree, 2
  85. 850  DATA wealth, stealth, riches, poverty, freedom, middle class, 3
  86. 860  DATA weep, shine, willow, cry, fill, rejoice, 5
  87. 870  DATA whole, empty, partial, smooth, entire, give, 2
  88. 880  DATA wicked, legal, good, famous, beautiful, strong, 2
  89. 890  DATA wild, ready, trapped, natural, tame, sick, 4
  90. 900  DATA withdraw, advance, divide, restore, elect, allow, 1
  91. 910  DATA woeful, content, uneasy, joyful, helpful, useful, 3
  92. 920  DATA wreck, drift, inhabit, create, please, smile, 3
  93. 930  DATA yield, resist, upset, proceed, create, present, 1
  94. 940  FOR Y=11 TO 24:LOCATE Y,1:PRINT SPC(79);:NEXT Y:LOCATE 11,1:RETURN
  95. 950  TIMEOUT$=TIME$:TIME2=VAL(LEFT$(TIMEOUT$,2))*120+VAL(MID$(TIMEOUT$,4,2))*60+VAL(RIGHT$(TIMEOUT$,2))
  96. 960  TIMEOUT$=TIME$:TIME3=VAL(LEFT$(TIMEOUT$,2))*120+VAL(MID$(TIMEOUT$,4,2))*60+VAL(RIGHT$(TIMEOUT$,2))
  97. 970  IF TIMEOUT > TIME3 - TIME2 THEN 960 ELSE RETURN
  98. 980  RNDTIME$=TIME$:RNDVAL=VAL(LEFT$(RNDTIME$,2))*120+VAL(MID$(RNDTIME$,4,2))*60+VAL(RIGHT$(RNDTIME$,2)):RANDOMIZE RNDVAL:RETURN
  99. 990  IKEY$=INKEY$:IF IKEY$="" THEN 990 ELSE RETURN
  100.